COM AT^SVIB: Vibrator mode
COM
COM Version History:
COM Version 1.0   17.10.2005   T. Kleinmann     started

from attglobals import *

COM Test
AT^SVIB=?
WAIT FOR ^SVIB:

COM Enable
AT^SVIB=1
WAIT FOR OK

COM Check enable
AT^SVIB?
WAITFOR (1,'1')

COM Disable
AT^SVIB=0
WAIT FOR OK

COM Check disable
AT^SVIB?
WAITFOR (1,'0')

COM Enable
AT^SVIB=1
WAIT FOR OK

WAIT 2000

for i in range (16,23):
	AT^SVIB=i
	WAIT FOR OK
	#USERTEST('Please check MMI that vibration mode has changed!')
	AT^SVIB?
	WAIT FOR OK
	WAIT 2000

for i in range (50,60):
	AT^SVIB=i
	WAIT FOR OK
	#USERTEST('Please check MMI that vibration mode has changed!')
	AT^SVIB?
	WAIT FOR OK
	WAIT 2000

for i in range (100,107):
	AT^SVIB=i
	WAIT FOR OK
	#USERTEST('Please check MMI that vibration mode has changed!')
	AT^SVIB?
	WAIT FOR OK
	WAIT 2000

for i in range (150,157):
	AT^SVIB=i
	WAIT FOR OK
	#USERTEST('Please check MMI that vibration mode has changed!')
	AT^SVIB?
	WAIT FOR OK
	WAIT 2000

AT
WAIT FOR OK





